home *** CD-ROM | disk | FTP | other *** search
/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc A) / Acorn User China CD-ROM (UK) (Disc A).bin / DEMON / DEVELOPER / TTFNSRC0.ZIP / s / rot13 < prev   
Encoding:
Text File  |  1994-09-04  |  723 b   |  44 lines
  1. ;    generated by Richard Sargeant, 23:20:39 02-Sep-1994
  2. ;       Modified by Robert Orwin, 11:30:00 04-Sep-1994 to make it work!
  3.  
  4. a1 RN 0
  5. a2 RN 1
  6. lr RN 14
  7. pc RN 15
  8.  
  9.     AREA |S$$code|, CODE, READONLY
  10.  
  11. ; ************************************************
  12. ; * Rot13 code, copyright Richard Sargeant, 1994 *
  13. ; ************************************************
  14.  
  15. ;    int mc_rot13(int ch, BOOL flag);
  16.  
  17.         EXPORT Rot13_Convert
  18.  
  19. Rot13_Convert
  20.  
  21.     TEQ    a2, #0
  22.     MOVEQS    pc, lr
  23.  
  24.     CMP    a1, #&61
  25.     BCC    rot13_label
  26.     CMP    a1, #&7A
  27.     MOVHIS    pc, lr
  28.  
  29.     SUB    a1, a1, #&D
  30.     CMP    a1, #&61
  31.     ADDCC    a1, a1, #&1A
  32.     MOVS    pc, lr
  33.  
  34. rot13_label
  35.     CMP    a1, #&5A
  36.     MOVHIS    pc, lr
  37.     CMP    a1, #&41
  38.     MOVCCS    pc, lr
  39.     SUB    a1, a1, #&D
  40.     CMP    a1, #&41
  41.     ADDCC    a1, a1, #&1A
  42.     MOVS    pc, lr
  43.  
  44.     END